inherited FLancamentoCreditoCliente: TFLancamentoCreditoCliente
  Left = 250
  Top = 157
  Caption = 'Lan'#231'amento Cr'#233'dito Cliente'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    ActivePage = TsPesquisa
    TabIndex = 0
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'LCC_CODIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LCC_DATA'
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LCC_CLIENTE_DESC'
            Width = 400
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LCC_HISTORICO'
            Width = 130
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LCC_VALOR'
            Title.Alignment = taRightJustify
            Width = 110
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label1: TLabel [0]
          Left = 10
          Top = 49
          Width = 40
          Height = 16
          Alignment = taCenter
          Caption = 'C'#243'digo'
        end
        object Label2: TLabel [1]
          Left = 89
          Top = 49
          Width = 27
          Height = 16
          Alignment = taCenter
          Caption = 'Data'
        end
        object Label6: TLabel [2]
          Left = 213
          Top = 50
          Width = 67
          Height = 16
          Caption = 'Cliente (F8)'
        end
        object Label13: TLabel [3]
          Left = 86
          Top = 102
          Width = 29
          Height = 16
          Caption = 'Valor'
        end
        object Label4: TLabel [4]
          Left = 213
          Top = 103
          Width = 51
          Height = 16
          Caption = 'Hist'#243'rico'
        end
        object Label12: TLabel [5]
          Left = 213
          Top = 155
          Width = 46
          Height = 16
          Caption = 'Origem '
        end
        object Label3: TLabel [6]
          Left = 463
          Top = 156
          Width = 51
          Height = 16
          Caption = 'Situa'#231#227'o'
        end
        object Label5: TLabel [7]
          Left = 372
          Top = 156
          Width = 40
          Height = 16
          Caption = 'C'#243'digo'
        end
        inherited panel2: TPanel
          inherited BtnFechar: TBitBtn
            Left = 602
          end
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        object DBDEDataLancamento: TDBDateEdit
          Left = 86
          Top = 69
          Width = 115
          Height = 23
          DataField = 'LCC_DATA'
          DataSource = dsCadastro
          CheckOnExit = True
          Ctl3D = False
          ButtonWidth = 26
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 3
        end
        object DBLCBCliente: TDBLookupComboBox
          Left = 213
          Top = 69
          Width = 485
          Height = 22
          Ctl3D = False
          DataField = 'LCC_CLIENTE'
          DataSource = dsCadastro
          KeyField = 'CLI_CODIGO'
          ListField = 'CLI_RAZAO'
          ListSource = DSCliente
          ParentCtl3D = False
          TabOrder = 4
          OnKeyDown = DBLCBClienteKeyDown
        end
        object DBEValor: TRxDBCalcEdit
          Left = 87
          Top = 119
          Width = 115
          Height = 24
          DataField = 'LCC_VALOR'
          DataSource = dsCadastro
          Ctl3D = False
          DecimalPlaces = 15
          DisplayFormat = ',0.00'
          ButtonWidth = 25
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 5
        end
        object DBEHistorico: TDBEdit
          Left = 213
          Top = 121
          Width = 485
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'LCC_HISTORICO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 6
        end
        object DBRGTipo: TDBRadioGroup
          Left = 87
          Top = 145
          Width = 115
          Height = 52
          Caption = '  Natureza  '
          Ctl3D = False
          DataField = 'LCC_TIPO'
          DataSource = dsCadastro
          Items.Strings = (
            'Entrada'
            'Sa'#237'da')
          ParentCtl3D = False
          TabOrder = 7
          Values.Strings = (
            'Entrada'
            'Saida')
        end
        object DBEOrigem: TDBEdit
          Left = 213
          Top = 172
          Width = 149
          Height = 22
          TabStop = False
          Ctl3D = False
          DataField = 'LCC_ORIGEM'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 8
        end
        object EDSituacao: TEdit
          Left = 463
          Top = 172
          Width = 80
          Height = 22
          Ctl3D = False
          Enabled = False
          ParentCtl3D = False
          TabOrder = 9
        end
        object EDSCodigo: TEdit
          Left = 372
          Top = 172
          Width = 80
          Height = 22
          Ctl3D = False
          Enabled = False
          ParentCtl3D = False
          TabOrder = 10
        end
        object DBEdit1: TDBEdit
          Left = 8
          Top = 69
          Width = 71
          Height = 22
          TabStop = False
          Ctl3D = False
          DataField = 'LCC_CODIGO'
          DataSource = dsCadastro
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 2
        end
      end
    end
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'SELECT '
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_CODIGO,'
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_CLIENTE,'
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_VALOR,'
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_DATA,'
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_HISTORICO,'
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_TIPO,'
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_ORIGEM,'
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_CODIGO_ORIGEM,'
      '  LANCAMENTO_CREDITO_CLIENTE.USUARIO,'
      '  LANCAMENTO_CREDITO_CLIENTE.DATAMODIFICACAO,'
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_NULO,'
      '  LANCAMENTO_CREDITO_CLIENTE.USUARIO_CADASTRO,'
      '  LANCAMENTO_CREDITO_CLIENTE.USUARIO_AUTERACAO,'
      '  LANCAMENTO_CREDITO_CLIENTE.USUARIO_EXCLUSAO,'
      '  LANCAMENTO_CREDITO_CLIENTE.DATA_CADASTRO,'
      '  LANCAMENTO_CREDITO_CLIENTE.DATA_EXCLUSAO,'
      '  LANCAMENTO_CREDITO_CLIENTE.DATA_AUTERACAO,'
      '  LANCAMENTO_CREDITO_CLIENTE.EXCLUIDO,'
      '  LANCAMENTO_CREDITO_CLIENTE.USUARIO_RECUPERACAO,'
      '  LANCAMENTO_CREDITO_CLIENTE.DATA_RECUPERACAO,'
      '  LANCAMENTO_CREDITO_CLIENTE.LCC_CLIENTE_DESC'
      'FROM'
      '  LANCAMENTO_CREDITO_CLIENTE'
      
        '  INNER JOIN CLIENTE ON (LANCAMENTO_CREDITO_CLIENTE.LCC_CLIENTE ' +
        '= CLIENTE.CLI_CODIGO)')
  end
  inherited cdsCadastro: TClientDataSet
    object cdsCadastroLCC_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'LCC_CODIGO'
    end
    object cdsCadastroLCC_CLIENTE: TIntegerField
      FieldName = 'LCC_CLIENTE'
    end
    object cdsCadastroLCC_VALOR: TFloatField
      DisplayLabel = 'Valor'
      FieldName = 'LCC_VALOR'
      DisplayFormat = '##,#0.00'
    end
    object cdsCadastroLCC_DATA: TDateTimeField
      DisplayLabel = 'Data'
      FieldName = 'LCC_DATA'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object cdsCadastroLCC_HISTORICO: TStringField
      DisplayLabel = 'Hist'#243'rico'
      FieldName = 'LCC_HISTORICO'
      Size = 40
    end
    object cdsCadastroLCC_TIPO: TStringField
      FieldName = 'LCC_TIPO'
    end
    object cdsCadastroLCC_ORIGEM: TStringField
      DisplayLabel = 'Origem'
      FieldName = 'LCC_ORIGEM'
      Size = 50
    end
    object cdsCadastroLCC_CODIGO_ORIGEM: TIntegerField
      FieldName = 'LCC_CODIGO_ORIGEM'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroLCC_NULO: TStringField
      FieldName = 'LCC_NULO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroLCC_CLIENTE_DESC: TStringField
      DisplayLabel = 'Cliente'
      FieldName = 'LCC_CLIENTE_DESC'
      Size = 60
    end
  end
  object DSCliente: TDataSource
    DataSet = DMGestao.QCliente
    Left = 32
    Top = 80
  end
end
